home *** CD-ROM | disk | FTP | other *** search
/ Kompuutteri K-CD 2002 #1 / K-CD_2002-01.iso / Delphi / INSTALL / program files / Borland / Delphi6 / Doc / ShareMem.int < prev    next >
Encoding:
Text File  |  2001-05-22  |  1.1 KB  |  33 lines
  1. { *********************************************************************** }
  2. {                                                                         }
  3. { Delphi / Kylix Cross-Platform Runtime Library                           }
  4. {                                                                         }
  5. { Copyright (c) 1995-2001 Borland Software Corporation                    }
  6. {                                                                         }
  7. { *********************************************************************** }
  8.  
  9. unit ShareMem;
  10.  
  11. interface                             
  12.  
  13. {$IFDEF MEMORY_DIAG}
  14. type
  15.   TBlockEnumProc = function (Block: Pointer): Boolean;
  16. {$ENDIF}
  17.  
  18. function SysGetMem(Size: Integer): Pointer;
  19. function SysFreeMem(P: Pointer): Integer;
  20. function SysReallocMem(P: Pointer; Size: Integer): Pointer;
  21. function GetHeapStatus: THeapStatus;
  22. function GetAllocMemCount: Integer;
  23. function GetAllocMemSize: Integer;
  24. procedure DumpBlocks;
  25.  
  26. {$IFDEF MEMORY_DIAG}
  27. function InitBlockMarking: Boolean;
  28. function MarkBlocks: Integer;
  29. function GetMarkedBlocks(MarkID: Integer; Proc: TBlockEnumProc): Boolean;
  30. {$ENDIF}
  31.  
  32. implementation
  33.